home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / pixelp.sda / PPMAIN (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  11KB  |  319 lines
  1. 10 POKE52,88:POKE56,88:CLR
  2. 15 DIMF1$(144),C$(40):POKE808,234
  3. 20 DIMFM$(27),LB(26),HB(26),FL$(40),TY(40),YN(40),FT(40):SYS49915:RESTORE
  4. 30 GOSUB2000:FORI=1TO26:READFM$(I),LB(I),HB(I):NEXT
  5. 35 FORI=1TO5:READSL(I),SH(I):NEXT
  6. 40 CLOSE8:RT$="":BX$=""
  7. 45 DN$(1)="1":DN$(2)="2":DN$(3)="2":D=1
  8. 50 FM$(27)="[213]NKNOWN":L=49766:H=L+1:LD=L-24
  9. 55 PRINT""SPC(10)"ANY KEY TO CONTINUE":GOSUB9990:PRINT"[147]":POKE53272,23
  10. 60 X=RND(-TI):GOSUB9965
  11. 100 POKE53280,.:POKE53281,.:PRINT:GOSUB9980
  12. 110 GOSUB9975:PRINTBX$RT$"[205]AKE [211]ELECTION  [157]";
  13. 120 GOSUB9985:IFA$="V"THEN500
  14. 122 IFINT(RND(1)*500)<20THENGOSUB9400
  15. 125 IFA$="#"THEN1622
  16. 130 IFA2<1ORA2>7THEN110
  17. 140 ONA2GOTO150,625,9997,1650,1355,1250,1400
  18. 150 GOSUB9975:PRINTBX$"[198]ILENAME ";:LN=15:GOSUB9900:IFIN$=""THEN100
  19. 155 FL$=IN$:NN$=IN$
  20. 160 GOSUB9975:PRINTBX$"[206]EW [206]AME ";:LN=13:GOSUB9900:IFIN$=""THENNF$=FL$:GOTO170
  21. 162 IFIN$="_"THEN100
  22. 165 NF$=IN$
  23. 170 GOSUB9975:PRINTBX$"[195]OMPRESSED?  ([217]/[206]) ";
  24. 175 GOSUB9985:IFA$="_"THEN100
  25. 180 IFA$="Y"THENCM=1:GOTO185
  26. 182 IFA$="N"THENCM=.:GOTO185
  27. 184 GOTO175
  28. 185 SYS51490:PRINTBX$RT$"[157][157][157][195]HOOSE [198]ORMAT  ([193]-[218])"
  29. 190 GOSUB9990:IFA2<1ORA2>26THEN190
  30. 195 PRINT"[147]"SPC(5)"[215]HILE PICTURE IS BEING VIEWED:
  31. 200 [153]"ASC1  LENHANGES BORDER":[153]"ASC3  LENHANGES BACKGROUND
  32. 205 PRINT"[198]5  [193]BORT TO MAIN MENU":PRINT"[198]7  [211]AVES TO DISK
  33. 210 [141]9600:[137]402
  34. 400 [142]
  35. 402 [139]TP[178]1[175]CM[178]1[167]NF$[178]"GG"[170]NF$:[137]450
  36. 405 [139]TP[178].[175]CM[178]1[167]NF$[178]"JJ"[170]NF$:[137]450
  37. 410 [139]TP[178]1[175]CM[178].[167]NF$[178]NF$[170]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE":[137]440
  38. 415 NF$[178]"DD"[170]NF$:[151]50027,[195](NF$)
  39. 420 [129]I[178]1[164][195](NF$):[151]50027[170]I,[198]([202](NF$,I,1)):[130]:[137]450
  40. 440 NF$[178][200](NF$,8)[170]" ":[129]I[178]1[164][195](NF$):[151]49985[170]I,[198]([202](NF$,I,1)):[130]
  41. 445 [151]49984,[194](49984)[170]1:[139][194](49984)[178]76[167][151]49984,65
  42. 450 PM[178]A2:[151]L,LB(PM):[151]H,HB(PM)
  43. 452 [153]"     RIGHT$NSERT SOURCE DISK, HIT ANY KEY":[141]9990
  44. 455 [141]9980:[141]9975:[153]BX$RT$"(null)OADING...     ":[141]9998:[139]ST[167]100
  45. 460 [158]50151:[139]PM[178]3[167][151]254,96
  46. 465 [139]PM[178]4[167][151]254,92
  47. 485 [139]PM[178]25[167][141]9760:[137]492
  48. 490 [158]LD,FL$,8
  49. 492 [141]9965:[141]9970:[139]E1$[179][177]"00"[167]100
  50. 493 [139]PM[178]5[167][158]51968
  51. 495 [158]49661[170](3[172]PM):[143] CONVERT
  52. 496 [139]PM[178]23[167][141]9750:[158]50924:[139]AB[167]100
  53. 497 [139]PM[178]22[167][141]9800
  54. 500 [139]TP[167][158]49792:[158]49852:[137]510
  55. 505 [158]49901
  56. 510 A$[178]"":[141]9990
  57. 515 [139]A$[178][199](133)[167][151]50178,32:[158]50177:[137]510
  58. 520 [139]A$[178][199](134)[167][151]50178,33:[158]50174:[137]510
  59. 522 [139]A$[178]"I"[175]PM[178]7[176]A$[178]"I"[175]PM[178]8[176]A$[178]"I"[175]PM[178]4[167][141]1565:[137]510
  60. 523 [139]A$[178]"B"[175]PM[178]7[176]A$[178]"B"[175]PM[178]8[176]A$[178]"B"[175]PM[178]4[167][141]1500:[137]510
  61. 524 [139]A$[178]"F"[175]PM[178]7[176]A$[178]"F"[175]PM[178]8[176]A$[178]"F"[175]PM[178]4[167][141]1550:[137]510
  62. 525 [139]A$[178]"Q"[176]A$[178][199](135)[167][153]"LOAD":[158]49915:[137]100
  63. 530 [139]A$[178]"S"[176]A$[178][199](136)[167]540
  64. 535 [137]510
  65. 540 DW[178]D[170]7:[139]CM[178].[167]600
  66. 545 [151]51623,92:[139]TP[167][151]51623,96
  67. 550 [151]51749,.:[151]51759,36:[139]TP[167][151]51749,17:[151]51759,39
  68. 555 [153]"LOAD":[158]49915:[141]9765:[139]A$[178]"_"[167]100
  69. 560 [151]51653,DW:[151]51688,DW:[151]51737,DW:[153]"(null)AVING...":[151]808,237
  70. 590 [141]9745:[158]51616,NF$
  71. 595 [151]808,234:[137]100
  72. 600 [153]"LOAD":[158]49915:[141]9765:[151]50026,DW:[141]9745:[153]"(null)AVING..."
  73. 610 [151]808,237:[139]TP[167][158]49944:[137]620
  74. 615 [158]51456
  75. 620 [151]808,225:[137]100
  76. 625 [139]D[178]1[167]100
  77. 645 [141]9975:[153]BX$RT$"CMD(null)EADING STR$IRECTORY":[141]9998:[139]ST[167]100
  78. 650 [151]51256,.:[158]51260:TF[178][194](51256)[171]1
  79. 665 [151]51653,9:[151]51688,9:[151]51737,9
  80. 670 [141]9720:[137]900
  81. 675 [139][202](B$,2,3)[178]"PIC"[167]B$[178][201](B$,8):[141]9770:TT[178]1:[137]800
  82. 680 [139][200](B$,2)[178]"DD"[167]B$[178][201](B$,[195](B$)[171]2):TT[178]2:[137]800
  83. 682 [139][200](B$,2)[178]"GG"[176][200](B$,2)[178]"JJ"[167]TTT[178]28:[137]800
  84. 685 [139][200](B$,4)[178]"[CRT"[167]B$[178][201](B$,[195](B$)[171]6):[141]9770:[141]9700:TT[178]5:[137]800
  85. 690 [139][201](B$,5)[178]"  PIC"[167]B$[178][200](B$,[195](B$)[171]5):[141]9770:TT[178]6:[137]800
  86. 695 [139][201](B$,4)[178]".PIC"[167]B$[178][200](B$,[195](B$)[171]4):TT[178]8:[137]800
  87. 700 [139][201](B$,4)[178]"MPIC"[167]B$[178][200](B$,[195](B$)[171]4):[141]9770:TT[178]9:[137]800
  88. 705 [139][200](B$,2)[178]"P-"[167]B$[178][201](B$,[195](B$)[171]2):TT[178]10:[137]800
  89. 707 [139][200](B$,1)[178]"\"[175][201](B$,4)[178]".BMP"[167][141]9715:TT[178]23:[137]800
  90. 710 [139][200](B$,1)[178]"\"[167]B$[178][201](B$,[195](B$)[171]1):TT[178]11:[137]800
  91. 715 [139][200](B$,3)[178]"PI."[167]B$[178][201](B$,[195](B$)[171]3):TT[178]12:[137]800
  92. 720 [139][200](B$,3)[178]"RP."[167]B$[178][201](B$,[195](B$)[171]3):TT[178]13:[137]800
  93. 725 [139][200](B$,2)[178]"B."[167]B$[178][201](B$,[195](B$)[171]2):TT[178]14:[137]800
  94. 730 [139][200](B$,3)[178]"MS."[167]B$[178][201](B$,[195](B$)[171]3):TT[178]16:[137]800
  95. 735 [139][200](B$,1)[178][199](129)[167]B$[178][201](B$,[195](B$)[171]1):[141]9770:TT[178]17:[137]800
  96. 740 [139][200](B$,4)[178]"RPM."[167]B$[178][201](B$,[195](B$)[171]4):TT[178]18:[137]800
  97. 745 [139][200](B$,4)[178]"RPH."[167]B$[178][201](B$,[195](B$)[171]4):TT[178]19:[137]800
  98. 750 [139][200](B$,4)[178]"PIC."[167]B$[178][201](B$,[195](B$)[171]4):TT[178]20:[137]800
  99. 755 [139][201](B$,4)[178]"/PIC"[167]B$[178][200](B$,[195](B$)[171]4):TT[178]26:[137]800
  100. 760 TT[178]27
  101. 800 F1$(I)[178]B$:[142]
  102. 900 [153]"SYS"RT$"CMDCMD"F1$(.):FD[178]1
  103. 902 [129]I[178]1[164]TF
  104. 905 B$[178]"":B$[178]F1$(I):[141]675
  105. 907 [139]TT[178]28[167]1100
  106. 908 [139][201](B$,4)[178]".CMM"[167]1100
  107. 910 [153]""RT$"CMDCMD"F1$(I):[139]TT[178]27[167]950
  108. 915 [153]""RT$FM$(TT)
  109. 920 [153]""RT$"CMDCMDCMDLENOMPRESS? ((null)/(null))"
  110. 925 [141]9990:[139]A$[178]"_"[167]100
  111. 927 [139]A$[179][177]"Y"[175]A$[179][177]"N"[167]925
  112. 930 [139]A$[178]"N"[167]1100
  113. 935 C$(FD)[178]F1$(I):TY(FD)[178]TT:FD[178]FD[170]1:[137]1100
  114. 950 [153]""RT$"CMDCMD"F1$(I)
  115. 955 [153]""RT$FM$(TT)
  116. 960 [153]"RIGHT$S THIS?":[153]"ATN. (null)RINT (null)HOP (null)CREEN (null)AGIC"
  117. 965 [153]"PEEK. (null)ORCEERER'S ATNPPRENTICE":[153]"LEN. ASCLYING LENOLORS"
  118. 967 [153]"STR$. (null)TRIP (null)OKER":[153]"VAL. (null)WIK (null)AINT":[153]"ASC. PEEK/CHR$RAPH
  119. 970 PRINT"[199]. [206]OT A PICTURE"
  120. 975 GOSUB9990:IFA$="N"THENTT=25:GOTO910
  121. 976 IFA2<1ORA2>7THEN975
  122. 977 SYS51502:IFA2=7THEN1100
  123. 980 IFA2=1THENTT=7:GOTO1000
  124. 983 IFA2=2THENTT=15:GOTO1000
  125. 985 IFA2=3THENTT=21:GOTO1000
  126. 990 IFA2=4THENTT=22:GOTO1000
  127. 992 IFA2=5THENTT=24:GOTO1000
  128. 995 IFA2=6THENTT=25
  129. 1000 GOTO910
  130. 1100 GOSUB9690:NEXT
  131. 1105 FD=FD-1:PRINT"[147][195]OMPRESSING"FD"FILES."
  132. 1110 PRINT" [201]NSERT DEST DISK IN DRIVE 9, HIT A KEY":GOSUB9990
  133. 1112 PRINT"[147]"SPC(15)"[215]ORKING...[144]"
  134. 1113 GOSUB9999:IFSTTHEN100
  135. 1115 DW=9:GOSUB9745
  136. 1120 FORE=1TOFD
  137. 1125 NF$="":FL$="":A2=.:SYS50151
  138. 1130 NF$=C$(E):FL$=NF$:A2=TY(E)
  139. 1135 GOSUB9600:POKEL,LB(A2):POKEH,HB(A2)
  140. 1140 IFTPTHENNF$="GG"+NF$:GOTO1150
  141. 1145 NF$="JJ"+NF$
  142. 1150 POKE51623,92:IFTPTHENPOKE51623,96
  143. 1155 POKE51749,.:POKE51759,36:IFTPTHENPOKE51749,17:POKE51759,39
  144. 1180 PM=A2
  145. 1185 GOSUB9998:IFSTTHEN100
  146. 1200 IFPM=25THENGOSUB9760:GOTO1210
  147. 1202 IFPEEK(653)=1THEN100
  148. 1205 SYSLD,FL$,8
  149. 1210 GOSUB9965:GOSUB9970:IFE1$<>"00"THEN100
  150. 1215 IFPM=5THENFORI=.TO256:POKE32256+I,.:NEXT
  151. 1220 SYS49661+(3*PM):REM CONVERT
  152. 1222 IFPM=23THENGOSUB9750:SYS50924:IFABTHEN100
  153. 1223 GOSUB9999:IFSTTHEN100
  154. 1224 IFPEEK(653)=1THEN100
  155. 1225 POKE808,237:SYS51616,NF$:POKE808,225
  156. 1227 GOSUB9967:IFE1$<>"00"THEN100
  157. 1230 PRINT"[198]ILES DONE"E"[144]":NEXT
  158. 1235 GOTO100
  159. 1250 IFD=1THEN110:REM FIX 2ND DRIVE
  160. 1255 PRINT"[147][212]URN ON DEST. DRIVE, HIT A KEY ";:GOSUB9985
  161. 1260 GOSUB9998:IFSTTHEN100
  162. 1265 GOSUB9998
  163. 1270 PRINT" ":GOSUB9695:PRINT"[212]URN ON SOURCE DRIVE, HIT A KEY ";:GOSUB9985
  164. 1275 GOSUB9998:IFSTTHEN1275
  165. 1280 POKE186,8:GOTO100
  166. 1350 REM DOS
  167. 1355 GOSUB9975:LN=33:PRINTBX$;:GOSUB9900
  168. 1357 IFIN$=""THEN100
  169. 1360 V$=IN$:DR=8:IFLEFT$(V$,1)="9"THENDR=9:V$=RIGHT$(V$,LEN(V$)-1)
  170. 1365 IFV$="_"THEN100
  171. 1370 IFD=1ANDDR=9THEN1355
  172. 1375 IFV$="$"THEN1385
  173. 1380 OPEN15,DR,15,V$:GOSUB9972:CLOSE15:GOSUB9975:GOSUB9970:FORBS=1TO1499:NEXT:GOTO1355
  174. 1385 POKE186,DR:POKE51249,DR:SYS51088
  175. 1390 PRINT""SPC(10)"ANY KEY TO CONTINUE ";:GOSUB9985
  176. 1395 PRINT"[147]":POKE53272,23:POKE186,8:GOSUB9980:GOTO1355
  177. 1400 PRINT"[147]"SPC(6)"[209]UIT...  [193]RE YOU SURE? ([217]/[206])":REM QUIT
  178. 1405 GOSUB9990:IFA$="N"THEN100
  179. 1410 IFA$<>"Y"THEN1405
  180. 1415 IFINT(RND(1)*600)<25THEN1424
  181. 1420 PRINT""SPC(6)"[207]KAY...  [212]HANX FOR USING ME!":FORBS=.TO1999:NEXT:END
  182. 1424 PRINT""SPC(12)"[206]O YOU'RE NOT...":FORBS=.TO1499:NEXT:GOTO100
  183. 1500 TV=PEEK(50150):TV=TV+1
  184. 1505 IFTV/16=INT(TV/16)THENTV=TV-16
  185. 1510 POKE50150,TV:SYS50129:RETURN
  186. 1550 TV=PEEK(50150):TV=TV+16
  187. 1555 IFTV>255THENTV=TV-256
  188. 1560 POKE50150,TV:SYS50129:RETURN
  189. 1565 TV=PEEK(50150):V1=INT(TV/16):V2=TV-(V1*16):TV=(16*V2)+V1
  190. 1570 POKE50150,TV:SYS50129:RETURN
  191. 1622 IFD=1THEND=2:GOTO1624
  192. 1623 D=1
  193. 1624 PRINTBX$"[145][145][145][145][145]"RT$RT$RT$""DN$(D):GOTO110
  194. 1650 GOSUB9975:PRINTBX$"  [201]NSERT PROGRAM DISK, HIT A KEY":GOSUB9990
  195. 1655 OPEN8,8,2,"HELP1":GOSUB9965:CLOSE8:IFE1$<>"00"THEN100
  196. 1700 POKEL,.:POKEH,144:X=1:Y=1:GOSUB1702:GOSUB1707:GOTO1710
  197. 1702 SYSLD,"HELP1",8:RETURN
  198. 1705 SYSLD,"HELP2",8:RETURN
  199. 1707 POKE251,SL(X):POKE252,SH(X):PRINT:SYS49770:PRINT"";:RETURN
  200. 1710 GOSUB9990
  201. 1715 IFA$="A"THEN100
  202. 1720 IFA$="+"THEN1730
  203. 1725 IFA$="-"THEN1750
  204. 1727 GOTO1710
  205. 1730 X=X+1
  206. 1735 IFX=6THENX=1:Y=Y+1:IFY=2THENGOSUB1705
  207. 1740 IFY=3THENY=2:X=5:GOTO1710
  208. 1745 GOSUB1707:GOTO1710
  209. 1750 X=X-1
  210. 1755 IFX=.THENX=5:Y=Y-1:IFY=1THENGOSUB1702
  211. 1760 IFY=.THENY=1:X=1:GOTO1710
  212. 1765 GOSUB1707:GOTO1710
  213. 2000 POKE53280,.:POKE53281,.:POKE53272,21:PRINT"[147]"SPC(15)"[153]PIXELPACKER"
  214. 2005 PRINTSPC(15)"[150][163][163][163][163][163][163][163][163][163][163][163]"
  215. 2010 PRINT""SPC(9)"(C)  1989 STEVE EMSLEY"
  216. 2015 PRINT""SPC(5)"[158]THIS PRODUCT IS SHAREWARE, AND"
  217. 2020 PRINTSPC(3)"MAY BE COPIED FREELY BUT NOT SOLD."
  218. 2025 PRINT""SPC(5)"[129]SEND COMMENTS OR DONATIONS TO:"
  219. 2030 PRINT""SPC(14)"STEVE EMSLEY":PRINTSPC(12)"1440 LARDNER ST."
  220. 2035 PRINTSPC(9)"PHILADELPHIA, PA  19149"
  221. 2040 PRINT"[159]"SPC(4)"I WOULD LIKE TO THANK JOE EKAITIS"
  222. 2045 PRINT" [156](THE FOX TM) [159]FOR HIS FINE TITLE SCREEN,"
  223. 2050 PRINTSPC(3)"[145]AND TO PAUL HUGHES [156](SYSOP PH)[159] FOR"
  224. 2055 PRINTSPC(3)"HIS IDEAS AND LATE NIGHT TESTING."
  225. 2060 PRINT""SPC(10)"[153]STEVE EMSLEY  [150](STEVE E8)":RETURN
  226. 5100 DATA"[203]OALA",0,96,"[196]OODLE",0,92,"[199][199]",0,143,"[202][202]",0,143
  227. 5110 DATA"[199]ARFIELD",0,96,"[193]RT [211]TUDIO",0,96,"[208]RINT [211]HOP [211][205]",0,96
  228. 5120 DATA"[208]AINT [206]OW!",0,96,"[193]DV [193]RT [211]TUDIO",0,96,"[193]RTIST 64",0,96
  229. 5130 DATA"[208]AINTBRUSH",0,88,"[194]LAZING [208]ADDLES",0,96,"[210]AINBOW [208]AINTER",0,92
  230. 5140 DATA"[214]IDCOM 64",0,88,"[211]ORCERER'S [193]PP",0,96,"[201]MAGE [211]YSTEM",0,92
  231. 5150 DATA"[212]HE [193]RTIST",0,96,"[210]UNPAINT ([205]UL)",0,96,"[210]UNPAINT ([200]IR)",0,92
  232. 5160 DATA"[205]ICRO [201]LLUST",28,88,"[198]LYING [195]OLORS",0,88,"[211]TRIP [208]OKER",0,96
  233. 5170 DATA"[208]ICASSO'S [210]EV",0,92,"[203]WIK [208]AINT",142,95,"[194]/[199]RAPH",0,92
  234. 5180 DATA"[199]AMEMAKER",0,144
  235. 5200 DATA0,144,247,147,240,151,228,155,221,159
  236. 9400 POKE2040,204:POKE53248,100:POKE53249,255:POKE53269,1:POKE53287,5
  237. 9405 :FORMB=254TO.STEP-1:POKE53249,MB:NEXT:POKE53269,.:RETURN
  238. 9600 IFA2=1THENFL$="?PIC ? "+FL$+"*":TP=1:GOTO400
  239. 9602 IFA2=2THENFL$="DD"+FL$:TP=.:GOTO400
  240. 9605 IFA2=3THENFL$="GG"+FL$:TP=1:POKE254,96:GOTO400
  241. 9610 IFA2=4THENFL$="JJ"+FL$:TP=.:POKE254,92:GOTO400
  242. 9615 IFA2=5THENGOSUB9945:TP=1:GOTO400
  243. 9620 IFA2=6THENFL$=FL$+"               ":FL$=LEFT$(FL$,11)+"  PIC":TP=.:GOTO400
  244. 9625 IFA2=8THENTP=.:FL$=FL$+".PIC":GOTO400
  245. 9627 IFA2=9THENFL$=FL$+"               ":FL$=LEFT$(FL$,12)+"MPIC":TP=1:GOTO400
  246. 9630 IFA2=10THENFL$="P-"+FL$:TP=1:GOTO400
  247. 9635 IFA2=11THENFL$="\"+FL$:TP=1:GOTO400
  248. 9637 IFA2=12THENFL$="PI."+FL$:TP=1:GOTO400
  249. 9640 IFA2=13THENFL$="RP."+FL$:
  250. 9645 IFA2=14THENFL$="B."+FL$:TP=1:GOTO400
  251. 9650 IFA2=16THENFL$="MS."+FL$:TP=1:GOTO400
  252. 9655 IFA2=17THENFL$="?"+FL$+"*":TP=1:GOTO400
  253. 9657 IFA2=18THENFL$="RPM."+FL$:TP=1:GOTO400
  254. 9660 IFA2=19THENFL$="RPH."+FL$:TP=.:GOTO400
  255. 9665 IFA2=20THENFL$="PIC."+FL$:TP=1:GOTO400
  256. 9670 IFA2=23THENGL$=FL$+".CMM":FL$="\"+FL$+".BMP":TP=1:GOTO400
  257. 9675 IFA2=26THENFL$=FL$+"/PIC":TP=1:GOTO400
  258. 9680 IFA2=7ORA2=25THENTP=.:GOTO400
  259. 9685 IFA2=15ORA2=21ORA2=22ORA2=24THENTP=1:GOTO400
  260. 9690 PRINT"                ":PRINT""RT$"               ":RETURN
  261. 9695 OPEN15,8,15:PRINT#15,"M-W"CHR$(119)CHR$(0)CHR$(2)CHR$(41)CHR$(73):CLOSE15:RETURN
  262. 9700 Q$="":FORJ=1TOLEN(B$):REM GARFIELD
  263. 9705 R$=MID$(B$,J,1):R=ASC(R$):IFR>96THENR=R-32
  264. 9710 Q$=Q$+CHR$(R):NEXT:B$=Q$:RETURN
  265. 9715 B$=LEFT$(B$,LEN(B$)-4):B$=RIGHT$(B$,LEN(B$)-1):RETURN
  266. 9720 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":PRINT"[221][150][196]ISK:                 [221]"
  267. 9723 PRINT"[221]                      [221]":PRINT"[221][150][206]AME:                 [221]"
  268. 9724 PRINT"[221]                      [221]":PRINT"[221][150][198]ORMAT:               [221]"
  269. 9725 PRINT"[221]                      [221]":PRINT"[221]                      [221]"
  270. 9727 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":RETURN
  271. 9745 OPEN15,DW,15,"I":CLOSE15:RETURN
  272. 9750 AB=.:GOSUB9975:PRINTBX$RT$" [204]OADING [195]OLOR":SYSLD,GL$,8
  273. 9755 GOSUB9965:GOSUB9970:IFE1$<>"00"THENAB=1
  274. 9757 RETURN
  275. 9760 OPEN8,8,2,FL$:INPUT#8,BC:INPUT#8,FC:SYS50201:RETURN
  276. 9765 PRINT"[147]  [201]NSERT DISK IN DEST. DRIVE, HIT A KEY":GOSUB9990:RETURN
  277. 9770 IFRIGHT$(B$,1)=CHR$(32)ORRIGHT$(B$,1)=CHR$(160)THENB$=LEFT$(B$,LEN(B$)-1):GOTO9770
  278. 9775 RETURN
  279. 9780 TT=PEEK(50750):TT=TT+1:IFTT>255THENTT=TT-256
  280. 9785 POKE50750,TT:SYS50729:SYS51864:GOTO460
  281. 9790 TT=PEEK(50750):TT=TT+16:IFTT>255THENTT=TT-256
  282. 9795 POKE50750,TT:SYS50729:SYS51864:GOTO460
  283. 9800 RESTORE:FORI=1TO26:READQ1$,QQ,QW:NEXT:FORI=1TO5:READQQ,QW:NEXT
  284. 9801 READT1,T2,E1,E2,WF:POKE54296,15:POKE54277,E1:POKE54278,E2
  285. 9810 READF:IFF=-1THENRETURN
  286. 9825 IFF=1THENWF=128:F=32767:T1=4:T2=7
  287. 9830 A=TI:IFF>0THENPOKE54272,FAND255:POKE54273,F/256:POKE54276,WF+1
  288. 9840 IFTI-A<T1THEN9840
  289. 9850 POKE54276,WF:A=TI
  290. 9860 IFTI-A<T2THEN9860
  291. 9870 WF=32:T1=7:T2=1:GOTO9810
  292. 9875 DATA7,1,32,96,32,3215,0,3215,4291,0,4291,5103,0,5103,6069,0,6069,5728
  293. 9880 DATA0,5103,5728,0,6069,5728,0,6069,5728,0,5103,4291,3215,3823,4291,4291
  294. 9890 DATA0,0,0,1072,0,0,1,0,0,1072,0,0,1,0,1072 ,-1
  295. 9900 IN$="":POKE198,.:POKE204,.
  296. 9905 WAIT198,15:GETZ$:Z=ASC(Z$):IFZ>95THEN9905
  297. 9910 IFZ$=""THENZ$=" ":Z=32
  298. 9920 ZL=LEN(IN$):IFZL>LNTHEN9930
  299. 9925 IFZ>31THENIN$=IN$+Z$:PRINTZ$;:GOTO9905
  300. 9930 IFZ=13THENPOKE204,1:PRINT" ":RETURN
  301. 9935 IFZ=20ANDZLTHENIN$=LEFT$(IN$,ZL-1):PRINT" [157][157] [157]";
  302. 9939 GOTO9905
  303. 9945 Q$="":FORI=1TOLEN(FL$):REM GARFIELD
  304. 9950 R$=MID$(FL$,I,1):R=ASC(R$):IFR>64THENR=R+32
  305. 9955 Q$=Q$+CHR$(R):NEXT
  306. 9960 FL$="[CRT?>"+Q$+"*":RETURN
  307. 9965 OPEN15,8,15:INPUT#15,E1$,E2$,E3$,E4$:CLOSE15:RETURN
  308. 9967 OPEN15,9,15:INPUT#15,E1$,E2$,E3$,E4$:CLOSE15:RETURN
  309. 9970 GOSUB9975:PRINTBX$""E1$","E2$","E3$","E4$:FORI=.TO999:NEXT:RETURN
  310. 9972 INPUT#15,E1$,E2$,E3$,E4$:RETURN
  311. 9975 PRINTBX$"                                   ";:RETURN
  312. 9980 SYS51444:PRINTBX$"[145][145][145][145][145]"RT$RT$RT$""DN$(D):GOSUB9970:RETURN
  313. 9985 POKE204,.
  314. 9990 GETA$:IFA$=""THEN9990
  315. 9995 A=VAL(A$):A1=ASC(A$):A2=A1-64:POKE204,1:RETURN
  316. 9997 SYS51490:GOSUB9990:SYS51520:GOSUB9990:GOTO100
  317. 9998 OPEN15,8,15:CLOSE15:RETURN
  318. 9999 OPEN15,9,15:CLOSE15:RETURN
  319.